home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SCH110B.ZIP;1 / HELPLIST.PRG < prev    next >
Encoding:
Text File  |  1993-10-31  |  894 b   |  47 lines
  1. *****
  2. * helplist
  3. * Function to control the help list box
  4. *****
  5. if mvparm1=1
  6.     imgsay(01,54,14,15,-1,"","HELP EXAMPLE")
  7.     *****
  8.     * start up of imglistbox()
  9.     * first screen of feature list file
  10.     *****
  11.     mvfeatures=memoread("helplist.txt")
  12.     mvcount=mlcount(mvfeatures,31)
  13.     mvscreen=iif(mvcount<=33,mvcount,33)
  14.     mvline=0
  15.     mvtoprow=2
  16.     mvcol=42
  17.     do while mvline<=mvscreen
  18.         mvline=mvline+1
  19.         mvtext=memoline(mvfeatures,31,mvline)
  20.         imgsay(mvtoprow+mvline,mvcol,14,15,-1,"",mvtext)
  21.     enddo
  22.     return 1
  23. endif
  24. if mvparm1=2
  25.     *****
  26.     * Up arrow press. 
  27.     *****
  28. endif
  29. if mvparm1=3
  30.     *****
  31.     * Down arrow pressed
  32.     *****
  33. endif
  34. if mvparm1=4
  35.     *****
  36.     * Exit pressed
  37.     *****
  38.     return 0
  39. endif
  40. if mvparm1=5
  41.     *****
  42.     * button press inside-ignore
  43.     *****
  44.     return 1
  45. endif
  46. return 1
  47.